From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Tue, 20 Mar 2007 08:50:10 +0000 (+0000)
Subject: (record_char): Add BLOCK_INPUT around fwrite.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~1453
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=203a244085da64808c011cd36e87f86a11502a0f;p=emacs.git

(record_char): Add BLOCK_INPUT around fwrite.
(Fopen_dribble_file): Add BLOCK_INPUT around fclose.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 1a41affc58f..f7a0c018d63 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3525,6 +3525,7 @@ record_char (c)
      If you, dear reader, have a better idea, you've got the source.  :-) */
   if (dribble)
     {
+      BLOCK_INPUT;
       if (INTEGERP (c))
 	{
 	  if (XUINT (c) < 0x100)
@@ -3550,6 +3551,7 @@ record_char (c)
 	}
 
       fflush (dribble);
+      UNBLOCK_INPUT;
     }
 }
 
@@ -10436,7 +10438,9 @@ If FILE is nil, close any open dribble file.  */)
 {
   if (dribble)
     {
+      BLOCK_INPUT;
       fclose (dribble);
+      UNBLOCK_INPUT;
       dribble = 0;
     }
   if (!NILP (file))